home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs19.d81 / simman.arc / AUTO-SEQ (.txt) next >
Commodore BASIC  |  2009-10-10  |  298b  |  11 lines
  1. 0 GETA$:IFA$=""THEN0
  2. 5 IFA=0THENA=1:d 11,9:d 11,9:d 8,7,0
  3. 10 IFA=1THENA=2:LOAD"MAMA.1200.Y",8,1
  4. 20 IFA=2THENA=3:LOAD"ONWARD>ONW2.Y",8,1
  5. 30 IFA=3THENA=4:LOAD"ONW2>ONW3.Y",8,1
  6. 40 IFA=4THENA=5:LOAD"ONW3>ONW4.Y",8,1
  7. 50 IFA=5THENA=6:LOAD"ONW4>ONW5.Y",8,1
  8. 60 IFA=6THENA=7:LOAD"ONW5>ONW6.Y",8,1
  9. 70 IFA=7THENA=8:LOAD"ONW6>ONW7.Y",8,1
  10. 1000 A=1:GOTO 10
  11.